home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / ProDOS Basic Examples / PROGRAMS / GET.TEXT.bas < prev    next >
Encoding:
BASIC Source File  |  1983-10-01  |  570 b   |  21 lines
  1. 10  ONERR  GOTO 150
  2. 20  DIM A$(100): REM  100 LINES MAX
  3. 30 D$ =  CHR$(4)
  4. 40 R$ =  CHR$(13)
  5. 50  TEXT : HOME 
  6. 55  PRINT D$;"PREFIX /EXAMPLES/DATA"
  7. 60  INPUT "LIST WHAT TEXT FILE? ";N$
  8. 70  PRINT : PRINT "TYPE:  CONTROL-S   TO STOP LISTING"
  9. 80  PRINT "       ANY KEY     TO CONTINUE"
  10. 90  PRINT : PRINT : POKE 34,6
  11. 100  PRINT D$;"OPEN ";N$
  12. 110  PRINT D$;"READ ";N$
  13. 120  FOR I = 1 TO 100
  14. 130  PRINT I;": ";: GOSUB 1000
  15. 140  NEXT I
  16. 150  PRINT : PRINT D$;"CLOSE ";N$
  17. 160  TEXT : END 
  18. 1000  GET C$: PRINT C$;
  19. 1010  IF C$ = R$  THEN  RETURN 
  20. 1020 A$(I) = A$(I) +C$
  21. 1030  GOTO 1000